(set-visited-file-name): Don't call find-buffer-visiting if filename is nil.

diff --git a/lisp/files.el b/lisp/files.el
index f48e38cc68654e06a4df2bc1edc07ea6e1a9d2c8..584aef9f456a351d253458a50277aa264a1b728e 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1423,7 +1423,7 @@ if you wish to pass an empty string as the argument."
          (setq truename (file-truename filename))
          (if find-file-visit-truename
              (setq filename truename))))
-    (let ((buffer (find-buffer-visiting filename)))
+    (let ((buffer (and filename (find-buffer-visiting filename))))
       (and buffer (not (eq buffer (current-buffer)))
           (not (y-or-n-p (message "A buffer is visiting %s; proceed? "
                                   filename)))